home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
010
/
war.bas
< prev
next >
Wrap
BASIC Source File
|
1988-11-09
|
3KB
|
91 lines
1 R$="corporal"
10 LINE INPUT "What is your name?";N$
11 PRINT:PRINT
20 PRINT "Hello "R$" "N$" and welcome to Beruit"
30 PRINT "You are in Beruit as part"
40 PRINT "of the multi-national peace keeping force."
50 PRINT " As a member of the United States Marines you"
60 PRINT "have been assigned to guard the International"
70 PRINT "airport. "
80 PRINT " The Drus Moslem malicia men are firing upon"
90 PRINT "your postion! Your howitzer has a range of 10000 FT."
91 PRINT "Your orders are to return fire and knock out there guns."
92 PRINT "If you can come with in 50 Ft. of there postion they"
93 PRINT "will be destroyed."
95 PRINT
100 PRINT
135 RANDOMIZE
140 X=RND
150 Y=X*10000
152 RANDOMIZE
154 S=RND
156 E=100*S
158 IF E>88 THEN GOTO 152
170 PRINT "You calculate an enemy postion to be "Y" feet away."
180 INPUT "At what angle do you wish the gun to be at";A
200 Q=90-A
210 IF Q<0 GOTO 520
220 Q=ABS(Q)
230 IF A<1 GOTO 620
240 H=((SIN(2*A/57.29577951000001#))*(10000))
250 IF H<50 GOTO 580
260 B=Y-H
270 C=ABS(B)
280 IF C<50 THEN GOTO 640
290 IF B>1 GOTO 320
300 PRINT "You were over by "C" feet."
310 GOTO 340
320 PRINT "You were short by "C" feet."
340 F=((SIN(2*E/57.29577951000001#))*(10000))
350 L=Y-F
360 T=ABS(L)
370 IF T<50 THEN GOTO 680
380 PRINT "The enemy shoots and messes you by "T" feet!"
390 IF T>50 THEN P=.1436
400 IF T>100 THEN P=.286
410 IF T>250 THEN P=.716
420 IF T>500 THEN P=1.4
430 IF T>800 THEN P=2.3
440 IF T>2000 THEN P=9
450 IF T>4000 THEN P=15
460 IF T>6000 THEN P=22
470 IF T>8000 THEN P=32
480 IF L<0 THEN D=-1
490 IF L>0 THEN D=1
500 E=E+(D*P)
510 RESTORE
520 GOTO 180
530 PRINT "You TRAITOR!!!, you are firing on your own side!"
540 PRINT "The angle of your gun should be less than 90!"
550 PRINT " At your court marshal you plied stupidity and get set free."
551 PRINT "But you have been demoted to private!"
552 R$="private"
560 GOTO 10
570 PRINT
580 PRINT "Good move "R$" "N$" you have just shot yourself!"
590 PRINT "And you are dead!"
610 GOTO 700
620 PRINT "What are you trying to do "R$" "N$" or should I say"
621 R$="private first class"
622 PRINT R$" "N$"? dig your own grave?"
630 GOTO 700
640 PRINT "Congratulations "R$" "N$"! You have destroyed them enemy!"
641 R$="SERGEANT"
642 PRINT "You are now "R$" "N$"!!!"
650 PRINT "You were off target by "C" Feet!"
660 PRINT
670 GOTO 700
680 PRINT "The enemy shoots and destroys you!"
690 GOTO 750
700 PRINT "You have the choose of going home or returning to the front."
701 PRINT "Which will it be "R$" "N$"? home or return";
702 INPUT F$
710 RESTORE
720 IF F$="RETURN" THEN GOTO 10
750 END
701 PRNT "Which will it be "R$" "N$"? home or return";
702 INPUT F$
710 RESTORE
720 IF F$="RETURN" THEN GOTO 10
750 END
701 PR